2 POKE786,0:REM*******DISK TO TAPE/COM-64****BY L.MINNITI*********
3 FORT=1TO4
4 PRINT"[147]PROGRAM NAME?":PRINT"TYPE-END[146]-WHEN FINISHED"
5 INPUTPR$(T)
6 POKE786,PEEK(786)+1
7 Z=PEEK(786)
8 IFPR$(T)="END"THEN10
9 NEXT
10 PRINT"[147]"(496+Z)"D[193]"PR$(1)","PR$(2)","PR$(3)","PR$(4)
11 IFPR$(4)=""ORPR$(4)="END"THENPRINT"GOTO14":GOTO13
12 PRINT"GOTO3"
13 :POKE198,2:POKE631,13:POKE632,13:END
14 PRINT"[147]":FORT=2TO16:PRINTT:NEXT
15 PRINT"SAVE-DISK[146]-ON DISK YOU WANT TO BACK-UP"
16 PRINT"":POKE198,15:FORT=1TO15:POKE630+T,13:NEXT:END
18 PRINT"[147]PRESS RECORD AND PLAY"
19 IFPEEK(1)>40THENGOSUB100
20 POKE787,PEEK(787)+1
30 D=PEEK(787)
50 FORC=1TOD:READA$:NEXT
55 IFA$="END"THENPRINT"[147]FINISHED":END
70 PRINT"[147]L[207]"CHR$(34)A$CHR$(34)",8"
75 PRINT"S[193]"CHR$(34)A$:PRINT"NEW"
80 PRINT"LOAD"CHR$(34)"DISK"CHR$(34)",8":PRINT"POKE198,0:RUN"
90 POKE198,10:FORT=1TO10:POKE630+T,13:NEXT:END
100 WAIT1,16,16
110 IFPEEK(787)=0THENRETURN
120 POKE787,PEEK(787)-1:RETURN